home *** CD-ROM | disk | FTP | other *** search
- *
- * HC handler startup module
- *
- * Use the following command line to make c.o
- * asm c.a
- *
-
- AbsExecBase EQU 4
-
-
- xref _LinkerDB * linker defined base value
- xref __BSSBAS * linker defined base of BSS
- xref __BSSLEN * linker defined length of BSS
- xref @main
-
- section text,code
-
- start:
-
- move.l a4,-(sp)
- lea _LinkerDB,a4 * load base register
- lea __BSSBAS,a0 * get base of BSS
- moveq #0,d1
- move.l #__BSSLEN,d0 * get length of BSS in longwords
- bra.s lp * and clear for length given
- clr move.l d1,(a0)+
- lp dbf d0,clr
- jsr @main
- move.l (sp)+,a4
- rts
- END
-